From: Lars Ingebrigtsen Date: Thu, 20 Jan 2022 05:42:56 +0000 (+0100) Subject: Make article--check-suspicious-addresses more resilient X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3361 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e4f59a6d1a72cb70083760c187af28939cf18c06;p=emacs.git Make article--check-suspicious-addresses more resilient * lisp/gnus/gnus-art.el (article--check-suspicious-addresses): Be more resilient to junk in headers. (But all this should be rewritten eventually, because the entire process is way too convoluted.) --- diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index d465dbfd579..8e46685e25f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2659,7 +2659,8 @@ If PROMPT (the prefix), prompt for a coding system to use." (defun article--check-suspicious-addresses (addresses) (setq addresses (replace-regexp-in-string "\\`[^:]+:[ \t\n]*" "" addresses)) (dolist (header (mail-header-parse-addresses addresses t)) - (when-let* ((address (car (mail-header-parse-address header))) + (when-let* ((address (car (ignore-errors + (mail-header-parse-address header)))) (warning (textsec-check address 'email-address))) (goto-char (point-min)) (while (search-forward address nil t)